home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-02_1989_-_de_Side_B.d64 / multi change (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  208 lines
  1. 10 rem --------------------------------
  2. 20 rem - multi-change                 -
  3. 30 rem --------------------------------
  4. 40 rem - (c) 1988 by                  -
  5. 50 rem -                              -
  6. 60 rem - jan pompe / bremen           -
  7. 70 rem --------------------------------
  8. 100 :
  9. 110 rem vorbereitungen
  10. 120 rem --------------
  11. 130 :
  12. 140 print"[147]"
  13. 150 :
  14. 160 poke646,   6
  15. 170 poke53280, 6
  16. 180 poke53281,14
  17. 190 :
  18. 200 gosub60000 :rem assembler-routinen laden
  19. 1000 :
  20. 1010 rem menu
  21. 1020 rem ----
  22. 1030 :
  23. 1040 print"[147]"
  24. 1050 :
  25. 1060 print"   [169]                                  [146][169]"
  26. 1070 print "  [169]           multi-change           [146][169]"
  27. 1080 print " [169]                                  [146][169]"
  28. 1090 print "  1 [146]  :  pixel-change"
  29. 1100 print "  2 [146]  :  single-bit-change"
  30. 1110 print "  3 [146]  :  random-change"
  31. 1120 print "  4 [146]  :  bild speichern"
  32. 1130 print "  5 [146]  :  bild laden"
  33. 1140 print "  6 [146]  :  directory"
  34. 1150 print "  7 [146]  :  kopie anlegen"
  35. 1160 print "  8 [146]  :  kopie aufrufen"
  36. 1170 print "  x [146]  :  reset"
  37. 1180 :
  38. 1190 geta$:ifa$=""then1190
  39. 1200 :   ifa$="1"then2000     :rem pixel-change
  40. 1210 :   ifa$="2"then3000     :rem single-bit-change
  41. 1220 :   ifa$="3"then4000     :rem random-change
  42. 1230 :   ifa$="4"then5000     :rem bild speichern
  43. 1240 :   ifa$="5"then6000     :rem bild laden
  44. 1250 :   ifa$="6"then7000     :rem directory
  45. 1260 :   ifa$="7"thensys49158 :rem kopien anlegen
  46. 1270 :   ifa$="8"thensys49161 :rem kopien aufrufen
  47. 1280 :   ifa$="x"thensys64738 :rem reset
  48. 1290 goto1190
  49. 2000 :
  50. 2010 rem pixel-change
  51. 2020 rem ------------
  52. 2030 :
  53. 2040 gosub10000 :rem grafik einschalten und faerben
  54. 2050 :
  55. 2060 getw$:ifw$=""then2060
  56. 2070 :
  57. 2080 sys49167 :rem pixel-change
  58. 2090 :
  59. 2100 getw$:ifw$=""then2100
  60. 2110 :
  61. 2120 gosub11000 :rem grafik ausschalten
  62. 2130 :
  63. 2140 goto1000 :rem menu
  64. 3000 :
  65. 3010 rem single-bit-change
  66. 3020 rem -----------------
  67. 3030 :
  68. 3040 poke214,23:sys58640 :rem cursor positionieren
  69. 3050 :
  70. 3060 poke19,64
  71. 3070 input" bitkombination '00' wird zu ";      bi$(0):print
  72. 3080 input"[145] bitkombination '01' wird zu    [157][157][157]";bi$(1):print
  73. 3090 input"[145] bitkombination '10' wird zu    [157][157][157]";bi$(2):print
  74. 3100 input"[145] bitkombination '11' wird zu    [157][157][157]";bi$(3):print
  75. 3130 poke19,0
  76. 3140 :
  77. 3150 fori=0to3
  78. 3160 :   bi=2*val(left$(bi$(i),1))+val(right$(bi$(i),1))
  79. 3170 :   poke828+i,bi*64
  80. 3180 next
  81. 3190 :
  82. 3200 gosub10000 :rem grafik einschalten und faerben
  83. 3210 :
  84. 3220 getw$:ifw$=""then3220
  85. 3230 :
  86. 3240 sys49152
  87. 3250 :
  88. 3260 getw$:ifw$=""then3260
  89. 3270 :
  90. 3280 gosub11000 :rem grafik ausschalten
  91. 3290 :
  92. 3300 goto1000 :rem menu
  93. 4000 :
  94. 4010 rem random-change
  95. 4020 rem -------------
  96. 4030 :
  97. 4040 gosub10000 :rem grafik einschalten und faerben
  98. 4050 :
  99. 4060 getw$:ifw$=""then4060
  100. 4070 :
  101. 4080 sys49164 :rem random-change
  102. 4090 :
  103. 4100 getw$:ifw$=""then4100
  104. 4110 :
  105. 4120 gosub11000 :rem grafik ausschalten
  106. 4130 :
  107. 4140 goto1000 :rem menu
  108. 5000 :
  109. 5010 rem bild speichern
  110. 5020 rem --------------
  111. 5030 :
  112. 5040 poke214,23:sys58640 :rem cursor positionieren
  113. 5050 input" filename";fi$
  114. 5060 :
  115. 5070 sys(57812)fi$,8 :rem parameter uebergeben
  116. 5080 poke193, 0
  117. 5090 poke194,32
  118. 5100 poke174,64
  119. 5110 poke175,63
  120. 5120 sys62957 :rem save
  121. 5130 :
  122. 5140 goto1000 :rem menu
  123. 6000 :
  124. 6010 rem bild laden
  125. 6020 rem ----------
  126. 6030 :
  127. 6040 poke214,23:sys58640 :rem cursor positionieren
  128. 6050 input" filename";fi$
  129. 6060 :
  130. 6070 sys(57812)fi$,8 :rem parameter uebergeben
  131. 6080 poke780, 0
  132. 6090 poke781, 0
  133. 6100 poke782,32
  134. 6110 sys65493 :rem load
  135. 6120 :
  136. 6130 goto1000 :rem menu
  137. 7000 :
  138. 7010 rem directory
  139. 7020 rem ---------
  140. 7030 :
  141. 7040 print"[147]"
  142. 7050 :
  143. 7060 n$=chr$(0)
  144. 7070 :
  145. 7080 open1,8,0,"$"
  146. 7090 :
  147. 7100 get#1,du$,du$
  148. 7110 :
  149. 7120 get#1,du$,du$,lo$,hi$
  150. 7130 :   ifst=64thenclose1:goto7200
  151. 7140 :   printasc(hi$+n$)*256+asc(lo$+n$);
  152. 7150 :   get#1,b1$,b2$
  153. 7160 :       ifb1$thenprintb1$;b2$;:goto7150
  154. 7170 :   print
  155. 7180 goto7120
  156. 7190 :
  157. 7200 print"  taste [146]"
  158. 7210 getw$:ifw$=""then7210
  159. 7220 :
  160. 7230 goto1000 :rem menu
  161. 10000 :
  162. 10010 rem grafik einschalten und faerben
  163. 10020 rem ------------------------------
  164. 10030 :
  165. 10040 poke53265,59
  166. 10050 poke53272,24
  167. 10060 :
  168. 10070 sys49155 :rem faerben
  169. 10080 :
  170. 10090 return
  171. 11000 :
  172. 11010 rem grafik ausschalten
  173. 11020 rem ------------------
  174. 11030 :
  175. 11040 poke53265,27
  176. 11050 poke53272,21
  177. 11060 :
  178. 11070 return
  179. 60000 :
  180. 60010 rem assembler-routinen laden
  181. 60020 rem ------------------------
  182. 60030 :
  183. 60040 fori=49152to49432
  184. 60050 :   reada
  185. 60060 :   pokei,a
  186. 60070 next
  187. 60080 :
  188. 60090 return
  189. 61000 :
  190. 61010 rem daten
  191. 61020 rem -----
  192. 61030 :
  193. 61040 data76,59,192,76,116,192,76,141,192,76,166,192,76,189,192,160,0,132,247
  194. 61050 data169,32,133,248,177,247,160,4,10,8,10,38,249,40,38,249,136,208,245,160
  195. 61060 data0,165,249,145,247,230,247,230,247,208,229,230,248,165,248,201,64,208
  196. 61070 data221,96,160,0,132,247,169,32,133,248,177,247,162,4,160,0,132,250,10
  197. 61080 data38,250,10,38,250,164,250,72,185,60,3,10,38,249,10,38,249,104,202,208
  198. 61090 data230,160,0,165,249,145,247,230,247,208,216,230,248,165,248,201,64,208
  199. 61100 data208,96,160,0,132,247,169,4,133,248,169,110,145,247,230,247,208,250
  200. 61110 data230,248,166,248,224,8,208,242,96,169,0,133,95,169,32,133,96,169,64
  201. 61120 data133,90,133,88,169,63,133,91,169,95,133,89,76,191,163,169,0,133,95,169
  202. 61130 data64,133,96,133,90,133,88,169,95,133,91,169,63,133,89,76,191,163,160
  203. 61140 data0,132,247,169,32,133,248,169,255,141,14,212,141,15,212,162,129,142
  204. 61150 data18,212,202,142,24,212,162,4,169,0,133,249,133,250,177,247,133,252,6
  205. 61160 data252,38,250,6,252,38,250,173,27,212,74,176,11,70,250,38,249,70,250,38
  206. 61170 data249,76,5,193,70,250,8,70,250,38,249,40,38,249,202,208,218,165,249,145
  207. 61180 data247,230,247,208,198,230,248,165,248,201,64,208,190,96
  208.